home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / mikecom / lites2.inc < prev    next >
Text File  |  1987-05-15  |  1KB  |  53 lines
  1. localproc       rxlites
  2.         push    ds
  3.         push    ax
  4.         push    bx
  5.         push    cx
  6.         inc     rxadr
  7.         inc     rxadr
  8.         cmp     rxadr,3792
  9.         jna     rxlt_contin
  10.         mov     rxadr,3741
  11.         xor     rxatrib,Vid_RX
  12. rxlt_contin:
  13.         mov     cl,rxatrib
  14.         mov     bx,rxadr
  15.         mov     ax,video_seg
  16.         mov     ds,ax
  17.         assume  ds:video_seg
  18.         mov     [bx],cl       ;code if using on screen TX/RX lights
  19.         pop     cx
  20.         pop     bx
  21.         pop     ax
  22.         pop     ds
  23.         assume  ds:DGROUP
  24.         ret
  25. rxlites         endp
  26.  
  27. localproc       txlites
  28.         push    ds
  29.         push    ax
  30.         push    bx
  31.         push    cx
  32.         inc     txadr
  33.         inc     txadr
  34.         cmp     txadr,3952
  35.         jna     txlt_contin
  36.         mov     txadr,3901
  37.         xor     txatrib,Vid_TX
  38. txlt_contin:
  39.         mov     cl,txatrib
  40.         mov     bx,txadr
  41.         mov     ax,video_seg
  42.         mov     ds,ax
  43.         assume  ds:video_seg
  44.         mov     [bx],cl       ;code if using on screen TX/RX lights
  45.         pop     cx
  46.         pop     bx
  47.         pop     ax
  48.         pop     ds
  49.         assume  ds:DGROUP
  50.         ret
  51. txlites         endp
  52.  
  53.